AD  ^£22lLL 

r  ' 

n 

MEMORANDUM  REPORT  ARBRL-MR-02950 

f 


UTILIZATION  OF  PATCH/TRIANGULAR  TARGET 
DESCRIPTION  DATA  IN  BRL  PARALLEL  RAY 
VULNERABILITY  ASSESSMENT  CODES 


Keith  A.  Applin 


September  1979 


US  ARMY  ARMAMENT  RESEARCH  AND  DEVELOPMENT  COMMAND 
BALLISTIC  RESEARCH  LABORATORY 

ABERDEEN  PROVING  GROUND,  MARYLAND 


f 


Approved  for  public  release;  distribution  unlimited. 


Destroy  this  report  when  it  is  no  longer  needed. 
Do  not  return  it  to  the  originator. 


Secondary  distribution  of  this  report  by  originating 
or  sponsoring  activity  is  prohibited. 

Additional  copies  of  this  report  may  be  obtained 
from  the  National  Technical  Information  Service, 

U.S.  Department  of  Commerce,  Springfield,  Virginia 
22151. 


The  findings  in  this  report  are  not  to  be  construed  as 
an  official  Department  of  the  Army  position,  unless 
so  designated  by  other  authorized  documents. 


The  use  of  tirzde  name  or  manufacturers'  nones  in  this  report 
does  not  constitute  indorsement  of  any  oommrcial  product. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  RACE  (Whan  Data  Entered) 


REPORT  DOCUMENTATION  PAGE 


1.  REPORT  NUMBER 

MEMORANDUM  REPORT  ARBRL-MR-02950 


4.  TITLE  (and  Submit) 

UTILIZATION  OF  PATCH/TRIANGULAR  TARGET 
DESCRIPTION  DATA  IN  BRL  PARALLEL  RAY 
VULNERABILITY  ASSESSMENT  CODES 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


3.  RECIPIENT’S  CATALOG  NUMBER 


S.  TYPE  OF  REPORT  &  PERIOD  COVERED 


Final 


6.  PERFORMING  ORG.  REPORT  NUMBER 


7.  AUTHORf*) 


Keith  A.  Applin 


8.  CONTRACT  OR  GRANT  NUMBERf.J 


9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

USA  Ballistic  Research  Laboratory,  ARRADCOM 
ATTN:  DRDAR-BLV 

Aberdeen  Proving  Ground,  MD  21005 


ii.  controlling  office  name  and  address 

US  Army  Armament  Research  $  Development  Command 
US  Army  Ballistic  Research  Laboratory  (DRDAR-BL) 
Aberdeen  Proving  Ground,  MD  21005 


10.  PROGRAM  ELEMENT.  PROJECT,  TASK 
AREA  «  WORK  UNIT  NUMBERS 


1L162618AH80 


12.  REPORT  DATE 

SEPTEMBER  1979 


13.  number  of  pages 


I 


MONITORING  AGENCY  NAME  &  ADDRESS^//  dtttarant  from  Conirotttng  Ottica)  IS.  SECURITY  CLASS,  (of  thla  raport) 

UNCLASSIFIED 


15«.  declassification/down  grading 

SCHEDULE 


16.  DISTRIBUTION  STATEMENT  (ot  thta  Report) 


Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  STATEMENT  (ot  tha  mbatract  an  farad  in  Block  20,  It  dlttarant  from  Raport) 


19.  KEY  WORDS  (Conttnua  on  rararaa  atda  it  nacaaaary  and  Idantity  by  btock  numbar) 


Target  Descriptions 
COMGEOM  Descriptions 
PATCH  Descriptions 
Triangular  Descriptions 


GIFT  Code 
FASTGEN  Code 
SHOTGEN  Code 

Vulnerability  Assessment  Codes 


Parallel  Ray 


2 CL  ABSTRACT  fCaofibu*  aa  waaarma  ff  nmeaaaary  and  tdanilty  by  block  numbar) 

Within  the  DoD,  two  different  target  description  methodologies  have  evolved 
and  become  widely  used.  The  Army  does  vulnerability  analyses  using  the  Combina¬ 
torial  Geometry  (COMGEOM)  method  while  the  Navy  and  Air  Force  basically  use  the 
PATCH  or  Triangular  method.  To  eliminate  obvious  duplication  of  target  descrip¬ 
tions,  a  procedure  has  been  developed  to  integrate  these  two  methodologies  at 
BRL.  This  report  presents  a  way  of  utilizing  the  triangular  target  description 
data  in  the  standard  BRL  parallel  ray  vulnerability  assessment  codes.  Steps  are 
outlined  which  will  allow  the  use  of  the  triangular  description  data  in  each  of 


FORM 
1  JAM  73 


EDITION  OF  •  MOV  68  IS  OBSOLETE 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whan  Data  Entered) 


UNCLASSIFIED _ 

SECURITY  CL  ASStFICATIQH  OF  THIS  PAOE(TWl«n  Dmta  Bnlrrrd) _ 

Block  20.  (cont'd) 

the  parallel  ray  vulnerability  assessment  codes  used  at  BRL. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  P  AGEfWTien  Data  Enta rod) 


TABLE  OF  CONTENTS 


Page 


I.  INTRODUCTION  .  7 

II.  THE  TARGET  DESCRIPTION  .  7 

III.  STATEMENT  OF  THE  PROBLEM  . 11 

IV.  PROCEDURE  AND  RESULTS . 11 

V.  CONCLUSIONS . 15 

APPENDIX  A  -  SAMPLE  TANK  DESCRIPTIONS . 19 

APPENDIX  B  -  MODIFICATIONS  TO  THE  VAST  AND 

STRIPR  VULNERABILITY  ASSESSMENT 

CODES . 31 

APPENDIX  C  -  MODIFICATIONS  TO  THE  SHOTGEN 

AND  FASTGEN  SHOTLINE  CODES  .  37 

APPENDIX  D  -  THE  SGCVRT  AND  FGCVRT  SHOTLINE 

CONVERSION  CODES  .  51 

DISTRIBUTION  LIST . 63 


3 


LIST  OF  FIGURES 


Figure  Page 

1.  Examples  of  COMGEOM  Descriptions  .  ® 

2.  Examples  of  PATCH  Descriptions  .  10 

3.  Sample  Tank  Descriptions . 13 

4.  Using  PATCH  Type  Descriptions  in  Vulnerable 

Area  Codes . 14 

5.  Using  PATCH  Type  Descriptions  in  Compartment 

Kill  Models . 17 


5 


I.  INTRODUCTION 


As  the  Army's  lead  laboratory  for  vulnerability  technology,  the 
Vulnerability/Lethality  Division  (VLD)  of  the  Ballistic  Research 
Laboratory  (BRL)  performs  vulnerability  analyses  for  a  wide  variety 
of  military  systems.  The  vulnerability  of  a  system  is  defined  as  a 
measure  of  susceptibility  of  that  system  to  damage  by  a  specific 
combat  damage  mechanism.  Damage  mechanisms  may  include  nuclear 
radiation,  blast,  kinetic  energy  warheads,  fragments,  shaped  charge 
warheads,  incendiary  devices,  and  lasers.  The  vulnerability  of  a 
system  to  these  damage  mechanisms  is  estimated  analytically  using  an 
appropriate  vulnerability  assessment  code. 

Most  of  the  vulnerability  assessment  codes  used  today  require 
some  type  of  geometric  information  about  the  target  system  being 
studied.  This  geometric  information  is  in  the  form  of  shotline 
data.  To  generate  this  shotline  data,  rays  are  projected  through 
the  target  system.  A  complete  history  of  the  components  encountered 
along  each  ray,  including  thicknesses  and  obliquity  angles,  is  re¬ 
corded.  These  shotlines  represent  paths  that  the  various  damage 
mechanisms  take  through  the  target.  The  vulnerability  assessment 
codes  calculate  what  effects  the  damage  mechanisms  have  on  the  per¬ 
formance  of  the  system  as  they  encounter  the  components  listed  on 
these  shotlines. 


II.  THE  TARGET  DESCRIPTION 

Over  the  years,  the  production  of  the  shotline  information  has 
been  computerized  and  different  codes  have  evolved  which  produce  this 
shotline  data.  Basic  to  all  these  shotline  producing  computer  codes 
is  the  geometric  target  description.  Essentially,  a  geometric  target 
description  is  a  three  dimensional  representation  of  the  target  system 
stated  in  terms  the  computer  can  understand.  The  location,  shape, 
thickness,  and  orientation  of  each  component  of  the  target  system  is 
accounted  for  in  the  computerized  geometric  description.  The  complexity 
of  the  description  can  be  widely  varied  depending  on  its  intended  use. 

To  date,  two  different  target  description  methodologies  have  evolved 
and  have  become  widely  used  and  accepted.  They  are  the  combinatorial 
geometry  (COMGEOM)  method  and  the  triangular  or  PATCH  method. 

In  the  COMGEOM  method  of  target  description  each  target  component 
is  described  as  a  combination  of  any  twelve  basic  geometric  solid 
types  such  as  spheres,  boxes,  cones,  cylinders,  and  ellipses. 
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The  computer  code  which  accepts  the  COMGEOM  target  description  and 

1  2 

produces  the  shotline  data  is  the  GIFT  ’  code.  The  GIFT  code  evolved 

3  4 

from  and  has  replaced  the  MAGIC  5  computer  code.  Figure  1  presents 
computer  drawings  of  some  sample  COMGEOM  descriptions. 

The  PATCH  method  of  target  descriptions  uses  sequenced  flat 
triangular  sections  (patches)  to  describe  the  surface  of  each  component 
of  the  target.  The  computer  code  which  accepts  the  PATCH  target  de¬ 
scription  and  produces  the  shotline  data  is  the  SHOTGEN^’^  code. 
Recently,  the  PATCH  target  description  method  lias  allowed  the  use 
of  cylinders,  cones,  and  spheres  to  represent  certain  target  components. 
PATCH  target  descriptions  with  cylinders,  cones,  or  spheres  are  accept¬ 
able  only  to  the  FASTGEN^  computer  code  for  the  production  of  the  shot¬ 
line  information.  The  PATCH  target  description  with  cones,  cylinders, 

g 

and  spheres  must  be  converted  to  all  triangles  before  being  acceptable 
to  the  SHOTGEN  code.  Figure  2  presents  some  computer  drawings  of 
sample  PATCH  descriptions. 

Within  the  Department  of  Defense,  both  of  these  target  description 
techniques  are  employed.  The  Army  performs  vulnerability  analyses  using 
the  COMGEOM/GIFT  methodology,  while  the  Navy  and  Air  Force  use  the 
PATCH/SHOTGEN-FASTGEN  methodology. 


1  Lawrence  W.  Bain,  Mathew  J.  Reisinger,  "The  GIFT  Code  User  Manual; 

Volume  I,  Introduction  and  Input  Requirements  (U) BRL  Report  No. 

1802,  July  1975.  ADtt  B0060371. 

2 

Gary  G.  Kuehl,  Lawrence  W.  Bain,  Jr.,  Mathew  J.  Reisinger,  "The  GIFT 
Code  User  Manual;  Volume  II,  The  Output  Options  (U) , "  USA  ARRADCOM 
Report  in  preparation. 

^ MAGIC  Computer  Simulation,  Volume  1,  User  Manual,  61 JTCG/ME-7 1-7-1 , 

July  1971. 

MAGIC  Computer  Simulation,  Volume  2,  Analysts  Manual  Parts  1  and  2, 

61 JTCG/ME-7 1-7 -2-2,  May  1971. 

° SHOT  GENERATOR  Computer  Program,  Volume  1,  User  Manual,  61 JTCG/ME-7 1-5-1 , 
July  1970. 

^ SHOT  GENERATOR  Computer  Program,  Volume  2,  Analyst  Manual  61JTCG/ME-71- 
5-2,  July  1970. 

y 

FASTGEN  II  Target  Description  Computer  Program,  Technical  Report,  ASD- 
TR-77-24,  Booz,  Allen,  Applied  Research  for  ASD/XRH  Wright-Patterson 
AFB,  January  1977. 

8 CONVERT  (PROGRAM  7054)  User  Manual,  DATATEC,  Inc.,  for  Air  Force 
Armament  Laboratory,  Eglin  AFB,  Florida,  October  1978. 
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Figure  1 


Examples  of  COMGEOM  Descriptions 
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Figure  2.  Examples  of  PATCH  Descriptions 
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III.  STATEMENT  OF  THE  PROBLEM 


With  two  different  target  description  methodologies  being 
employed  in  the  DoD  and  with  a  total  of  nearly  200  targets  having 
been  described  to  date,  there  has  been  duplication  of  target  de¬ 
scription  efforts.  In  order  to  reduce  future  duplications  of  effort 
and  to  realize  the  associated  savings  in  time  and  effort,  a  work 
unit  was  initiated  at  VLD  to  incorporate  these  two  target  description 
methodologies.  The  most  feasible  way  for  VLD  to  accomplish  this 
task  was  at  the  shotline  level.  That  is,  any  shotline  data,  whether 
produced  by  SHOTGEN-FASTGEN  or  by  GIFT,  was  made  acceptable  to  the 
standard  vulnerability  assessment  codes  used  at  BRL.  This  report 
presents  the  results  of  this  work  unit  and  its  effects  when  using 
the  standard  BRL  parallel  ray  vulnerability  codes.  A  future  report 
will  address  the  problem  of  utilizing  PATCH/triangular  shotline  data 
in  the  BRL  "point  burst"  vulnerability  assessment  code. 

IV.  PROCEDURE  AND  RESULTS 

The  parallel  ray  vulnerability  assessment  codes  considered  are 

9 

the  standard  codes  in  use  at  the  BRL  and  are  as  follows:  STRIPR, 

a  modified  vulnerable  area  (VAREA)1^’^  code;  the  parallel  ray  portion 

12 

(i.e.,  no  spall)  of  the  VAST  vulnerability  code;  and  two  compartment 

kill  models  -  KETANK1^  for  kinetic  projectiles  versus  tanks  and  CETANK1^ 
for  chemical  energy  projectiles  versus  tanks.  Either  modifications 


g 

"A  Distributed  Vulnerable  Area  and  Munition  Lethal  Area  Methodology 
with  Terrain  Shielding  Effects ,"  G.L.  Holloway ,  S.K.  Einbinder ,  J.G. 
Bevelock ,  October  1975  from  the  BRL/ADPA  Report  of  Proceedings  of  the 
Symposium  on  Vulnerability  and  Survivability ,  Volume  II. 

10 

VAREA  Computer  Program ,  Volume  J,  User  Manual ,  61 JTCG/ME-7 1-6-1 , 
February  1971. 

^VAREA  Computer  Program ,  Volume  II,  Analyst  Manual,  61JTCG/ME-71-6-2, 
February  1971. 

12 

Thomas  F.  Hafer,  Ann  S.  Hafer,  "Vulnerability  Analysis  for  Surface 
Targets  (VAST)  An  Internal  Point-Burst  Vulnerability  Model",  USA 
ARRADCOM  TR  No.  ARBRL-TR-02154,  April  1979.  (AD  #B038960L) 

1 5 

Howard  W.  Ege,  Sharon  M.  Harvey,  "Computer  Program  for  Determining 
Vulnerability  of  Tanks  to  Kinetic  Energy  Projectiles,"  Volume  I  User 
Manual,  Volume  II  Analyst  Manual,  BRL  IMR  Nos.  238,  239,  June  74  (CONF) 

14 

Howard  Ege,  " Computer  Program  for  Determining  Vulnerability  of  Tanks 
to  Chemical  Energy  Projectiles, "  ARBRL  Rpt  in  preparation. 
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were  made  in  the  vulnerability  codes  to  accept  the  different  shotline 
data,  or  the  shotline  data  were  modified  to  be  made  acceptable  to  the 
vulnerability  codes.  All  the  codes  mentioned  in  this  report,  whether 
shotline  producing  codes,  vulnerability  assessment  codes,  or  shotline 
conversion  codes,  are  now  operational  at  BRL. 

For  checkout  and  verification  purposes,  two  "identical"  tank 
descriptions  were  produced,  one  using  the  COMGEOM  method  and  the  other 
the  PATCH/triangular  method  (with  cones,  cylinders,  and  spheres).  Any 
new  codes,  or  changes  or  modifications  to  existing  codes  referenced  in 
this  report  were  comparison  checked  using  these  two  "identical"  de¬ 
scriptions  of  the  same  hypothetical  tank.  Figure  3  depicts  computer 
drawings  of  an  oblique  view  of  these  two  descriptions.  These  descrip¬ 
tions  are  relatively  low  detail  but  are  not  considered  overly  simple 
descriptions.  A  more  detailed  discussion  of  these  descriptions  is  pre¬ 
sented  in  Appendix  A. 

In  order  to  utilize  PATCH/triangular  shotline  data  in  a  BRL 
vulnerability  code,  the  analyst  will  face  one  of  the  following  four 
cases : 

•  Case  (1)  a  PATCH  description  with  all  triangles 

•  Case  (2)  a  PATCH  description  employing  cones,  cylinders, 

and  spheres 

•  Case  (3)  only  the  SHOTGEN  shotline  data 

•  Case  (4)  only  the  FASTGEN  shotline  data 

Previously  at  BRL,  each  of  these  four  cases  would  have  presented 
problems  to  the  analyst  depending  on  which  vulnerability  assessment  code 
he  intended  to  use.  We  will  discuss  how  one  would  proceed  in  each  of 
the  above  four  situations  for  each  of  the  standard  BRL  vulnerability 
assessment  codes. 

When  using  the  vulnerable  area  codes,  namely  STRIPR  and  VAST, 
the  situation  is  relatively  simple  and  is  depicted  in  Figure  4.  Both 
the  VAST  and  STRIPR  codes  previously  accepted  the  SHOTGEN  format  of 
shotline  data.  Thus,  in  Case  (1)  where  a  PATCH  description  of  only 
triangles  is  available,  one  simply  uses  the  SHOTGEN  code  to  produce 
the  shotline  data  in  an  acceptable  format.  For  Case  (3),  the  SHOTGEN 
shotline  data  are  available  and  acceptable  for  use  as  they  are.  On 
the  other  hand,  neither  STRIPR  nor  VAST  accept  FASTGEN  shotline  data. 
Thus,  when  the  available  target  description  has  cones,  cylinders,  and 
spheres  and  is  not  acceptable  to  SHOTGEN  (Case  (2))  or  when  only  the 
FASTGEN  shotline  data  are  available  (Case  (4)),  the  geometry  data  is 
unusable.  To  remedy  this  problem,  both  the  VAST  and  STRIPR  codes 
have  been  modified  to  accept  the  FASTGEN  shotline  data.  These  modi¬ 
fications  are  listed  and  discussed  in  Appendix  B.  The  analyst  can 
now  proceed  in  Cases  (2)  and  (4)  and  use  the  FASTGEN  shotline  data 
in  the  modified  VAST  and  STRIPR  codes.  One  other  alternative  to 
Case  (2)  may  be  to  convert  the  description  to  all  triangles  and  proceed 
as  in  Case  (1),  (i.e.,  use  the  SHOTGEN  code).  However,  one  must  realize 
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Vulnerable  area  codes 
(  VAST ,  STRIPR  ) 


igure  4.  Using  PATCH  Type  Descriptions  in  Vulnerable  Area  Codes 


that  in  doing  so,  all  the  curved  surfaces  (cones,  cylinders,  and  spheres) 
will  be  approximated  by  a  series  of  flat  triangles  and  this  approximation 
may  not  be  desirable,  depending  on  the  system  being  studied. 

The  compartment  kill  models  of  KETANK  and  CETANK  represent  a  ^ 
similar  type  of  problem.  Both  of  these  codes  accept  only  GIFT  Tape  1 
type  shotline  data.  For  the  compartment  kill  models  it  was  decided 
to  change  the  shotline  data  for  all  four  possible  cases.  Figure  5 
depicts  the  compartment  kill  situation.  Both  the  SHOTGEN  and  FASTGEN 
codes  were  modified  by  adding  an  option  to  produce  GIFT  Tape  1  shot¬ 
line  data.  The  modifications  to  SHOTGEN  and  FASTGEN  are  listed  in 
Appendix  C.  The  modified  SHOTGEN  and  FASTGEN  codes  are  both  oper¬ 
ational  at  BRL.  Thus,  Case  (1)  and  Case  (2)  only  require  the  use  of 
Tape  1  shotline  option  in  these  modified  SHOTGEN  and  modified  FASTGEN 
codes,  respectively,  to.  produce  GIFT  Tape  1  shotlines. 

For  Cases  (3)  and  (4) ,  where  one  has  only  standard  SHOTGEN  and 
FASTGEN  shotline  data  respectively,  two  conversion  codes  were  written. 

The  SGCVRT  code  converts  standard  SHOTGEN  shotline  data  to  GIFT  Tape  1 
shotline  data  while  FGCVRT  does  the  same  for  standard  FASTGEN  shotline 
data.  These  two  conversion  codes  are  discussed  in  detail  and  listed 
in  Appendix  D.  As  before,  if  one  has  a  Case  (2)  situation  (PATCH  de¬ 
scription  with  cones,  cylinders,  and  spheres),  the  description  may 
be  converted  to  all  triangles  (Case  (1))  and  then  proceed  as  in  Case  (1) . 
Again,  the  curved  surfaces  will  be  approximated  by  triangular  patches. 

V.  CONCLUSIONS 

The  vulnerability  analyst  at  BRL  now  has  the  capability  of  using 
any  PATCH  target  description  or  any  FASTGEN  or  SHOTGEN  produced  shotline 
data  in  all  the  standard  BRL  parallel  ray  vulnerability  assessment  codes. 
This  fact  represents  a  possible  savings  in  time  and  effort  at  BRL  when 
analyzing  a  system  that  has  already  been  described  using  the  PATCH/ 
triangular  method  and  for  which  no  COMGEOM  target  description  exists. 

In  effect,  future  duplications  of  target  descriptions  should  be 
eliminated.  It  is  of  little  consequence  to  an  analyst  whether  the 
shotline  data  he  uses  in  an  analysis  comes  from  a  validated  PATCH  or 
validated  COMGEOM  target  description.  All  the  changes  and  modifications 
of  existing  codes  and  the  new  codes  discussed  in  this  report  have  been 
validated  and  checked  using  the  two  "identical”  descriptions  of  a 
sample  tank.  These  sample  tank  descriptions  differ  only  in  the  fact 
that  one  description  employs  COMGEOM  and  the  other  uses  the  PATCH 
method.  The  modified  SHOTGEN,  FASTGEN,  STRIPR,  and  VAST  codes  are 
operational  and  available  at  BRL. 


Tape  l  shotline  data  is  the  formatted  shotline  output  produced  by 
the  GIFT  code.  This  information  is  available  in  any  of  three  for¬ 
mats  depending  on  the  number  of  components  listed  per  line  of  output 
data.  More  detailed  information  about  the  GIFT  Tape  1  shotline  data 
can  be  found  in  Reference  2. 
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The  vulnerability  codes  referenced  in  this  report  represent  the 
standard  BRL  codes  used  for  analysis  of  ground  vehicles  attacked  by 
fragments,  kinetic  energy  warheads,  and  shaped  charge  warheads. 
Vulnerability  assessment  codes  assessing  other  damage  mechanisms 
(e.g.,  lasers)  and  for  other  types  of  systems  (e.g.,  aircraft)  present 
very  similar  problems.  The  results  presented  in  this  report  will  allow 
for  the  use  of  PATCH/SHOTGEN-FASTGEN  geometric  information  in  these 
cases  also.  In  fact,  any  parallel  ray  vulnerability  assessment  code 
which  uses  standard  GIFT  shotlines  will  now  be  able  to  use  PATCH/tri- 
angular  shotline  data  by  using  the  shotline  conversion  codes  (SGCVRT 
and  FGCVRT) .  The  two  main  exceptions  are  the  point  burst  code  and 

the  nuclear  vulnerability  code.^  As  noted,  the  point  burst  problem 
will  be  addressed  later.  The  nuclear  vulnerability  assessment  code 
used  at  BRL  requires  a  COMGEOM  description  but  does  not  use  standard 
GIFT  shotline  data.  The  nuclear  code  uses  a  Monte  Carlo  scheme  for 
tracing  particles  through  a  target  description.  The  results  presented 
in  this  report  will  not  allow  the  use  of  PATCH/triangular  target  de¬ 
scriptions  in  the  nuclear  vulnerability  code.  Such  an  undertaking 
would  require  a  major  reworking  of  the  ray  tracing  portion  of  the 
nuclear  vulnerability  code. 


^ A.  Rainis ,  R.  Rexroad ,  "MIFT:  GIFT  Combinatorial  Geometry  Input 
to  VCS  Code,"  BRL  Rpt  No.  1967,  dtd  March  1977.  (AD  #A037898) 
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Figure  5.  Using  PATCH  Type  Descriptions  in  Compartment  Kill  Models 
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SAMPLE  TANK  DESCRIPTIONS 


In  order  to  check  all  the  modifications  made  in  the  various 
codes  and  to  verify  the  new  codes,  two  target  descriptions  were 
produced  of  the  same  hypothetical  sample  tank,  one  employing  the 
PATCH  method  and  one  the  COMGEOM  method.  This  tank  definitely 
bears  no  resemblance  to  any  real  or  future  tank.  Figure  A-l  presents 
a  cross  sectional  view  of  the  tank's  armor  shell  as  it  was  described 
in  both  descriptions.  Thicknesses  and  certain  obliquity  angles  have 
been  added  to  this  plot.  The  interior  of  the  tank  includes  four  crew 
members,  a  fuel  tank,  a  ballistic  computer,  thirty-six  rounds  of 
ammunition,  and  a  simple  engine  and  transmission.  Figure  A-2  shows 
an  oblique  view  of  the  interior  components  of  both  descriptions. 

Figure  A-3  shows  a  cut-away  view  of  the  tank  depicting  the  placement 
of  the  interior  components.  Figures  A-4  through  A-7  present  different 
exterior  views  of  the  two  descriptions  for  comparison  purposes. 

Figure  A-4  presents  front  views.  Figure  A-5  presents  rear  views. 

Figure  A-6  presents  side  views,  and  Figure  A-7  presents  top  views. 
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Figure  A-4.  Front  Views  of  the  Sample  Tank  Descriptions 
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COMGEOM 


COMGEOM 


PATCH 


Figure  A-6.  Side  Views  of  the  Sample  Tank  Descriptions 
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PATCH 


Top  Views  of  the  Sample  Tank  Descriptions 
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MODIFICATIONS  TO  THE  VAST  AND  STRIPR 
VULNERABILITY  ASSESSMENT  CODES 


The  STRIPR  is  a  modified  VAREA  code  which  will  produce 
vulnerable  area  estimates  for  different  heights  (strips)  on  the 
target  system.  This  code  has  now  been  modified  to  accept  FASTGEN 
shotline  data.,  The  VAST  code  is  an  internal  point  burst  vulner¬ 
ability  assessment  code.  Being  based  on  the  STRIPR  code,  the  VAST 
code  has  all  of  the  STRIPR  code's  capabilities  but  also  can  consider 
the  effects  of  behind-the-plate  spall  particles.  The  changes  to  the 
VAST  code  presented  here  are  only  concerned  with  the  "no  spall" 
portion  of  VAST  and  consequently  are  basically  the  same  as  those 
changes  to  STRIPR  (i.e.,  ability  to  read  FASTGEN  type  shotlines). 
Table  B-I  presents  the  changes  to  the  STRIPR  code  while  Table  B-II 
presents  the  changes  to  the  VAST  code. 
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TABLE  B-I.  Changes  to  the  STRIPR  Code  to 
Accept  FASTGEN  Type  Shot  lines 


♦ID  FGINPUT 
*0  RV2.73 

IF(IPACK-O)  710), 160, ICO 
7100  N-N+l 
7110  LL-LL+1 

I F ( LL • LE • 170 )  GOTQ  712C 

REAO(l)  (AX(L),AY(L),A2(L),IECC(L),KCNC(L),LTH(L), 
1IES(L),IE5K (L),L»1,170) 

IFdSWl.GE.il  WfiITE(fc,F81)  UX(L),AY(L),AZ(L),IECQ(L), 
1KCNG(L),LTH(L) , IES(L 1 ,  1 1  S  K (  L )  ,  L ■ 1, 17 C) 

LL-1 

7120  IF(N.GT.50)  GOTO  7150 
I C  N  0  <  N)  •KCNDdl ) 

I F {  ICNC(N).EG.O)  GCTQ  76C 
TAX(N)*AX(LL)+TDiV 
TAY* A Y ( LL  )*TDI  V 
T AZ»A  Z  <  LL 1 +TDI  V 

TH(N  )  -  FLOAT  (LTHU.L  )  )  *TC  IV/  100.0 
JSC  ( M ■MOO (  IECO(Lt),  10) 

SEC ( N  )  ■ F LC AT ( 1 6  S  <  L  L )  1/1000.0 

I F ( JKLL.LE.C)  $EC<N)-FluAT<lESMlL) l/ICCo.C 

TN(N)-TH(n)/SEC(N) 

IF(JSC(N)-9)  7100,230,230 
715C  I F  (  M  0  0  ( IECO(LL),10) .LT  .9)  GCTO  7110 
GOTO  220 
*1  »V2.A 

DIMENSION  KC NO ( 170) , IESK ( 170  >,LTH( 170) 

♦I  RV2.398 

881  FGRMAT ( 1H  , 3 F 1 2 . 2, 5  1 1 J ) 
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TABLE  B-II.  Changes  to  the  VAST  Code  to  Accept 
FASTGEN  Type  Shotlines 


*  I D  F  GEN  I N 
♦I  VAST. 45 

COMMON  /FGINPT/  IFGEN 
*0  VAST. 69 

C  66-70  -  IFGFN  -  .GT.  0  SHOTLINES  IN  FASTGEN  OUTPUT 

C 

*0  VAST. 71 

1  STRIPV»PRMET»  TAP8/ISPCM* IFGEN 
C  INPUT  IS  IN  FASTGEN  FORMAT  IF  IFGEN  GT  0 

IF ( IFGEN. GT .0)  LPACK*  .FALSE  . 

*0  VAST. 193 

80  FORMATT 12L5# 215 ) 

*1  VAST.  3770 

COMMON  /FGINPT/  IFGEN 
*1  VAST. 3997 

DIMENSION  KCNU(170)> IESK(170)>ITH(170) 

*  I  VAST. 4005 

COMMON  /FGINPT/  IFGFN 
*1  VAST. 4011 

C  IFGEN  >  0  HAVE  FASTGEN  SHOTLINES 

IF ( IFGEN. GT  .0)  GCTC  100 

*  I  VAST. 4077 
C 

C  HAVE  FASTGEN  SHOTLINES 

C  BLOCKS  GF  170  LINES  -  8  wOROS  PER  LINE 

100  N»N+1 
200  LL«LL+1 

IF (LL.LE.170 )  GOTO  300 

READ(TPIO)  (AX(L)/AY(L)>AZ(L)>IECO(L)jKCNG(L)>ITH(L)>IES(L)> 
1  IESK(L)»L»1/ 170) 

LL«1 

300  IF  (N.GT.MAXNCS )  GOTO  400 
ICNO(N)*KCNC(LL) 

IF(ICNOCN).EO.O)  RETURN 
TAX ( N) »  AX ( LL  ) 

T  A  Y  =  A  Y  (  L  L  ) 

TAZ*AZ(LL  ) 

TH(N)»FLOAT ( ITH(LL) )  /  100.0 
JSC ( N) *MOQ ( I  ECO ( LL ) r 10  ) 

IF {  .NOT  .XITANG)  SEC(N)«FL0AT(IES(LL))*.C01 
IF(XITANG)  SEC(N)*FL0AT(IESK(LL))*.G01 
TN(N)*TH(N)/SEC (N) 

IF ( J  SC ( N ) .LT  .9)  GOTO  100 
RE  TURN 

400  I F  {  M  OD  (  I  EC  0 {  LL) > 10) . L  T  .  9  )  GCTC  200 

IF(XITANG)  irfR I T  E ( 6*  50  )  M A XNC S *  T A Y > T A Z 
N*rtA XNC  S 
JSC ( N) «9 

RETURN  xt 


APPENDIX  C 

MODIFICATIONS  TO  THE  SHOTGEN  AND 
FASTGEN  SHOTLINE  CODES 
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MODIFICATIONS  TO  THE  SHOTGEN  AND 
FASTGEN  SHOTLINE  CODES 


The  SHOTGEN  and  FASTGEN  computer  codes  are  the  shotline  pro¬ 
ducing  codes  associated  with  the  PATCH/tri angular  target  description 
technique.  Both  of  these  codes  produce  shotline  data  in  different 
but  similar  formats.  The  SHOTGEN  code  will  accept  target  descriptions 
consisting  of  only  triangles,  whereas  FASTGEN  will  also  accept  target 
descriptions  comprised  of  triangles,  cones,  cylinders,  and  spheres. 

In  order  to  use  the  output  of  these  codes  in  the  compartment  kill 
models  (KETANK  and  CETANK)  at  BRL,  both  SHOTGEN  and  FASTGEN  were 
modified  by  adding  the  option  to  produce  GIFT  Tape  1  shotline  data. 
Table  C-I  presents  the  changes  to  the  SHOTGEN  code,  and  Table  C-II 
presents  the  changes  to  the  FASTGEN  code.  These  modified  SHOTGEN 
and  FASTGEN  codes  are  now  operational  at  BRL. 
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TABLE  C-I.  Changes  to  SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shot lines 


*ID  TAPEI 

*D  SHGEN. 3. 9 

1  TAPE28,TAPE29,TAPE1> 

C  TAPE9  -  INPUT  DATA  (DESCRIPTION)  (RINARY) 

C  TAPE10-  LINE-OF-SIGHT  OUTPUT  (BINARY) 

C  TAPE2B-  TRANSFORMED  DATA  (BINARY) 

C  TAPE29-  OVERFLOWS  (BINARY) 

C  TAPEI  -  GIFT  TAPEI  2  COMPONE NTS/L INF ( FORMATED ) 

C 

C  CARO  1  -  JKL.JKLL.IBlN.ICOOR, KAGRID  (515  FORMAT)  (READ  BY  MAIN) 

M  SMGEN.18 

C  KAGHIO  .EG.  0  NO  T APF 1  GRID  OUTPUT 

C  KAGRID  .GT.  0  CREATE  GIFT  TAPEI  GRID  OUTPUT 

»U  SHGEN. 45.46 

READ  (5.8000)  JKL  •  JKLL  »  I B I N •  I COOR  .K AGR I D 
WRITE (6.8732)  JKL . JKLL . I B I N. I COOR .K AGR ID 
8732  FORMATdHl.lOX. *OPTIONS  SELECTED  FOR  THIS  RUN*.//. 

1  1  OX . • JKL  =  * . 15/ 

2  1  OX . • JKLL  =  *.15/ 

3  lOX.URI*  =  *,15/ 

4  1  OX , * ICOOR  =  *.15/ 

5  1  OX  » • KAGK ID  = ' » 15/ ) 

M  SHGEN.53 

C  KAGRID. EG. 0  NO  GIFT  TAPEI  GRID  OUTPUT 

C  KAGRID. GT.O  PRODUCE  GRiU  TAPEI  GRID  OUTPUT  (2  COMPONENT S/L IN£ ) 


TABLE  C-I.  Changes  to  SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines  (Continued) 


*0  SHGEN . 58  *  6b 
C 

CC  WRITE  INITIAL  HEADER  ON  TAPE  1  IF  NECESSARY 

C 

IF(JKL.LE.O)  GOTO  7385 
CALL  SKIHFE <10t JKLt 1) 

CALL  SKIPFE ( 1* JKL»0) 

7385  CONTINUE 

CALL  DATE ( A A ) 

IE (KmGHIO.GT.O)  WRITE ( 1 *7893)  NUnVWSfAAfNV 
7893  FORMAT ( I5tA10. • VEHICLE 15) 

*1  SHGtN.55 

rsj  NUMVwSsQ 

GHID= 0.0 
*0  TKANSE.9 

IF (GRID. LE. 0.0)  GUTO  39E7 
ENOFILE  10 
END V=999 . 9 
WHITE (If  3928)  ENDV 
3928  FORMAT  (Fb.  It 71Xt  »END' ) 
tNDFILE  1 
3927  CONTINUE 
«U  TRANSF.14 
*1  TRANSF.17 

InUMVwS  =  NUMVWS*  1 
WHITE (6f 7789)  NUMVwS 
7789  FURMAT (5Af • VIEW  NURttE  R ' f 1 6 ) 


TABLE  C-I .  Changes  to  SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines  (Continued) 


IF (KAGRIO.GT.O)  WR I T£ < 6 , 7793 ) 

7793  FORMAT (5X» 'SELFCTEO  GIFT  TAPE1  OUTPUT  OPTION') 

C 

CC  WRITE  TAPE1  HEADEH  LINE  FOR  THIS  VIEW 
C 

TCX  =  0.0 

TCY  =  0.0 

TC2  =  0.0 

IF  (KAGKIO.GT.O)  WRITE  ( 1  1 15231  )  AZM , ELE V . TCX , TCY t TCZ t GR ID 

6231  F  OHMAT (2E20.8,4E10.3) 

6232  CONTINUE 
*1  TREAT. 29 

NCGMP=0 
*b  SHGEN.42 

COMMON  YCTR.ZCTR,  NC'OHP  , KA3R I D  .NUmVWS 
*b  CT0BIN.6 

COMMUN  YCTH.7CTR, NCOMP ,KAGRID* NUHV WS 
*b  TRANSF.4 

COMHON  YC TR.ZCTR. NCOMP, KAGR ID tNUMVWS 
*b  CCS. 5 

COMMON  YCTH,ZCTR, NCOMP, KAGRID tNUMVWS 
*b  TREAT. 4 

COMMUN  YC TR.ZCTR, NCOMP, KAGR I D,NUMVWS 
*b  SORT. 5 

COMMON  YCTR,ZCTR,NC0MP,KAGH1D,NUMVWS 
«b  CHECK, 4 

COMMON  YCTH,ZCTR,NC0MR,KAGRID,NUMVWS 


TABLE  C-I.  Changes  to  SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines  (Continued) 


*1  TREAT  .2 

DIMENSION  XXI (50) »XX* (50) . ITEM (SO) ♦CLOS(SO) »CAnGI (SO) »CNORM(S0> ♦ 
1  KSPAC (50) .SLOS (50) 

*D  TREAT. ?54 
C 

CC  FINISHED  WITH  THIS  COMPONENT  FILL  OUT  TAPE  1  ARRAYS 
C 

*54  CONTINUE 

IF (KAGRID.LE.O)  GOTO  9254 

NCOMP=NCOMR*1 

IF (NCOMP.LE.50)  GOTO  9306 

YERR=FLOAT (IFlX(SH(2tJK)/10000.0))*.01 

ZEHR=FLOAT  (IF  IX  (ShOtJK  )/ 1000.0)  )  *.01 

*  H  I  T  E  ( 6  » 9  3  B  7  )  Y  ERR  »  ZERR 

938  7  FORMAT (5X. 'NUhhER  COMPONENTS  >  SO  AT  CELL  ' ♦ 2F L 0 . ? » 5X « • S TOP  * ) 
STOP 

9386  CONTINUE 

KOhh  =  (  SH  (  f> »  JK  )  )  +  .  005 
KOO=MOD < JH <2, JK)  *10  0) 

JH1JK =(  JH ( 1. JK )*1  00  0  0 )  ♦  KuJ* 100 
JH2JK=(KURb*10000) *JH ( ?» JK) /\ 00 
XXI <NCOMP)=SM(l » JK) 

XX*»  (MCOMP)  =SH(  1  »  JK  )  -SH(4t  JK) 

1TFM (NCOMP ) =MUU (JH2JK  « 10 OOO) 

LLUS(NCUMP)=SH(4. JK) 

CANGI  (NCOMP)  =FLOAT  (  (M()D(JHl  JK  .  100  00)  )/l  00) 

CNOhm (NCOMP) = (FLOAT ( JH2JK/1 0000) ) *,01 


TABLE  C-I.  Changes  to 


SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines  (Continued) 


KSPAC (NCOMP) =JHl JK/1 0000 
SLOS (NCOMP ) e0 , 0 
ANGKO=CANGI (NCOMP) *.01745329 

IF (CNORM (NCOMP) ,EO. 0. 0)  CNORM (NCOMP) =CLOS (NCOMP ) *COS ( ANGKO) 

9254  CONTINUE 

I F ( J9-N5 )  250*253*253 
*1  TKtAT.259 

C 

CC  FINISHED  THIS  CELL  -  WRITE  TaPEI  INFO 

C 

IF (KAGNIO.LE.O)  GOTO  320 
KSPAC (NCOMP ) =9 
C 

CC  WRITE  CELL  HEADER  LlNF. 

C 

NK=NCOMP 

WRITE  ( 1 »bi 05)  YCTHf ZCTR.XX1 (1>  »XXW(NK) » NCOMP , YCOOR , ZCOOR * AZM . ELF V 

C 

CC  WRITE  REST  OF  TAPEI  CELL  INFO 

C 

NFK=NCOMP-l 
00  bill  KAA=1»NFK 
If (NCOMP. EU.l )  GOTO  bill 
SLOS ( KAA ) =XXW (l\A  A ) -XX 1  ( KAA«- 1  > 

IF (SLOS(KAA) ,GT. 0,010)  GOTO  bill 
KSPAC (KAA) =0 
SLOS (K AA ) -0 ,0 


TABLE  C-I.  Changes  to  SHOTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines 


(Continued) 


dill  CONTINUE 

DO  81  12  K1=1,NK.2 
K2  =  Kl 

IF  (KSPAC  <  K 1  )  .EG). 9)  GOTO  dll3 
K2  =  K 1*1 

WHITE (1 .8103) ITEM (K 1 ) .CL0S(K1 ) .C.NORm(KI) .CANGI (Kl) .KSPAC(Kl) , 

1  SLOS (Kl ) • ITEM (K2) .CLOS (K2)  . CNOMM ( K  2 )  .CANGI (K?) .KSPAC (K2) . 

2  SLOS(K2).K2 
GOTO  8112 

bl  13  WHITE (1 .8104) ITEM (Kl ) .CLOS (Kl ) »CNOftM(Kl ) .CANGI (Kl )  .KSPAC ( Kl ) , 

1  SLOS ( K 1 ) . K2 

8112  CONTINUE 

8103  F OWMAT ( 2 ( l4*2F7.2*Fb.l .I3.F7.2)  . 7 X . 1 4 ) 

8104  FORMAT ( 14 , 2F7 • 2.F6. 1 . 1 3 ,F 7 . 2, 4 1 X . 1 4 ) 

810b  FORMAT (Fb. 1 .F7. 1 .3X.2F 8.2.6*. I3.7X.2F9. 3. IX. • A*  »F4.0. »E  *»F4.0) 
NCOMP=0 


TABLE  C-II.  Changes  to  FASTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines 


♦  D 

♦  I 

C 

♦  I 

c 

c 

c 

c 


FASTGEN. 4 

2  TAP£27#TAPED 

FASTGEN. 25 

FILE  1  FORMATTED  SHCTLINE  QUTPIT  (GIFT  TAPE1  2  COMPONENTS  PER  CARD) 
FASTGEN. 63 


KAGRID  >  0  PRODUCE  T APE  1  FORMATTED  SHOTLINES 
-  0  NO  TAPE1 

NUMVWS  NUMBER  OF  ASPECTS  FCR  T APE  1  (JUST  PRINTED  ON  HEADER 

LINE  OF  T APE  1  ONLY) 


♦I  FASTGEN. 60 

COMMON  KEITH#KAGRID 
♦I  FASTGEN. 103 
KEITH-0 

♦  D  FASTGEN. 105 

1#NUMC#NCRIT#KAGRID#NLMVWS 
♦I  FASTGEN. 106 

1#NUMC# NCR  IT# KAGRID# NUMVWS 
IF(KAGPID.LE.O)  GOTO  777 
C  WRITE  INITIAL  HEADER  ON  T APE  1 

REWIND  1 
CALL  DATE ( A  A  ) 

WRITE(1»3172)  NUMVWS#  AA»  NV 
3172  FORMAT ( I  5  »  A  10# 1  VEHICLE*#I5> 
777  CONTINUE 
+  D  FASTGEN. 150#  155 

CALL  SKIPFE (20, JKL»1  ) 

*1  FASTGEN. 250 

CUMMON  KE ITH#KAGRID 
*1  FASTGEN. 268 

IF (KEITH. CT  .0)  ENDFILE  20 
If (KAGRID. LE.O)  GOTO  3635 
IMKEITH.EG.O)  GOTO  38  35 


TABLE  C-II.  Changes  to  FASTGEN  Code  to  Produce  GIFT  Tape  I  Shotlines  (Continued) 


XEND-999.9 
WR1TE<1,3833)  X£ND 

3833  FORMAT ( F6.1,  71 X# 'END'  ) 

ENOFILE  1 

3835  CONTINUE 
♦I  FASTGEN. 289 

IF(KAGRID.GT.O)  WF ITE (  1 ,  38 34 )  A  2 M , E L E V  * TC X , TC Y * TC l , GR  I D 

3834  FOPMAT<2E20.8,4Ei0.3  ) 

KEITH-KEITH+1 

WRITE (6# 1030)  KE ITH, AZM, ELEV, NV 
I F ( K AGP ID.GT . J )  WR I T E < t ,  3 3 3 1  ) 

3331  F0RMAT<5X, 'OPTION  SELECTED  FOR  T APE  1  GRID  OUTPUT') 

♦D  FASTGEN. 924 

10  30  FORMAT ( iHl, 'VIEW  NUM BE P • , I  5 , 5 X , *AZM«',F5.1,3X,  'ELEV«',F5.1, 

1  5X, ' VEHICLE • , I  5 ) 

+ I  FASTGEN. 967 

COMMON  K  E I TH, K  AGR  I  D 
*1  FASTGEN. 1054 

COMMON  KEITH, KAGRID 
+1  FASTGEN. 1100 

COMMON  K  E I TH  »  K  AGR  I G 
+1  FASTGEN. 1316 

COMMON  KEITH, KAGRIO 
♦I  FASTGEN. 1614 

COMMON  KEITH, KAGRID 
+1  FASTGEN. 2044 

COMMON  KEITH, KAGRID 
♦I  FASTGEN. 2129 

DIMENSION  ITEM(50),CLOS(50),CNOKM(50),CANG1(50),KSPACC50),SLCS(50) 
1,XXX(5G),XXW<50) 

♦I  FASTGEN. 2133 

COMMON  KEITH, KAGRID 


TABLE  C-II.  Changes  to  FASTGEN  Code  to  Produce  Gift  Tape  1  Shotlines  (Continued) 


♦I  FASTGEN. 2144 
NCOHP  *0 

*0  FASTGEN.2281,2269 

YKAA- ( FLOAT ( J6+JYY )*GRID-YC0N) +  HAFG 
ZKAA«( FLOAT C J7+ JZZ ) *GRID-ZCON ) ♦HAFG 
♦I  FASTGEN. 2386 

IF(KAGRID.LE.O)  GOTO  311 
1F( IC(LAC).LE.O)  GOTO  311 
NCOMP-NCOMP+1 
IFCNC0MP.LE.50J  GOTO  8182 
WRITE (6,8187)  NCOMP 

8187  FCRMAT(5X, 'NCOMP-  '.I5.4X,'GT  5C  -  STOP') 

STOP 

0182  CONTINUE 

XXX(NCOMP)-XOCLOC) 

ITEM(NC0MP)-1C (LAC) 

C LOS (NCOMP) -FLOAT ( L  TH ) / 100.0 
XXW (NCOMP  )  •  XO(LOC )-CLQ5 (NCOMP) 

CANGI(NC0MP)-57.2957795*AC0S(  10G0.0/F  LOAT  (  ISEQ(LBC)  )  ) 

C  NORM (NCOMP ) -0.0 

CNORM ( NCOMP ) -CL  OS (NCOMP ) *C0S(CANGI (NCOMP)/57. 2957795) 
KSPAC (NCOMP )-ISP 
SLOS ( NCOMP) -G.0 
311  CONTINUE 
+1  FASTGEN. 2443 

KSPAC (NCOMP-) ) -KSP 
*1  FASTGEN. 2470 

IF(KAGRIO.LE.O.OR.IC(LAC).LF.O)  GOTO  321 
KSPAC(NCGMP  )«9 
C  FINISHED  THIS  CELL 

C  WRITE  CELL  HEADER 

NK -NCOMP 

WRITE  (1.6105)  YK AA, Z K AA, XXX (l).XXW(NK), NCOMP, Y.Z.AZM.ELEV 


TABLE  C-II.  Changes  to  FASTGEN  Code  to  Produce  GIFT  Tape  1  Shotlines  (Continued) 


C  WRITE  REST  Of  CELL  INFC 

NFK-NCOMP-1 
DO  312  KAA»1»NFK 
I F ( NCOMP • E  C . 1 )  G0T0312 
SL0$(KAA)»XXW(KAA)-XXX(KAA*1) 
lF(SLfJSIKAA)  .GT..01)  GOTO  312 
KSPAC (KAA  )-0 
SLOS(KAA) «G.O 

312  CONTINUE 

DO  313  K1»1,NK,2 
K  2  =  K  1 

IF(KSPAC(K1 > .FQ.9)  GOTO  316 
K2-K1+1 

WRITE(1#H1C3)ITEM(K1),CLGS<K1 ) , CNOR M ( K 1 ) , C ANG I ( K 1 ) , K S P AC ( K 1 ) $ 

1  SLGS ( K1 ) , ITEM(K2),ClO$(K2),CNORM(K2),CANGI<K2) » KSPAC <K2)» 

2  SlOS<K2),K2 
GOTO  313 

3  1  fc  WRITE!  1,6 104)1 TEM(Kl),  CL  OS (Kl ) , CNOR M ( K 1 ) , C ANG I ( K 1) » K S P AC ( K  1  )  , 

1  SL0$(K1),K2 

313  CONTINUE 

8103  F0PMAT(2(I4,2F7.2,F6.1,I3,F7.2),7X,I4) 

8104  FORMAT ( 1 4 , 2F  7 . 2  ,  F  6  •  1 , 13/ F  7  •  2,  4  1  X  ,  14  ) 

9 1  Ob  F0RMAT(Ffc.l,F7.1,3X,2F8.2,8X,I3,7X,2F9.3>lX,*A*,F4.G,«E  *,F4.0> 
NCOMP-O 
321  CONTINUE 
♦I  FASTGEN. 2496 

COMMON  KEITH, KAGRID 


APPENDIX  D 

THE  SGCVRT  AND  FGCVRT  SHOTLINE  CONVERSION  CODES 
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THE  SGCVRT  AND  FGCVRT  SHOTLINE  CONVERSION  CODES 

The  SGCVRT  and  FGCVRT  codes  convert  SHOTGEN  and  FASTGEN  shot line 
data  respectively  to  a  format  identical  to  GIFT  Tape  1  shotline  data. 
Both  the  SGCVRT  and  the  FGCVRT  are  executed  the  same  way;  hence,  the 
following  instructions  apply  for  both  codes.  There  are  two  files 
or  logical  units  to  be  considered:  (1)  the  input  file  Tape  11 
(logical  unit  11)  contains  the  binary  shotline  data  to  be  converted, 
(i.e.,  SHOTGEN  or  FASTGEN  shotline  data);  (2)  the  output  file  Tape  1 
(logical  unit  1)  contains  the  converted  GIFT  Tape  1  shotline  data. 

The  card  input  to  these  two  conversion  codes  is  quite  simple 
and  consists  of  two  sets  of  cards.  The  first  card  set  consists  of 
one  card  only.  This  card  contains  the  following  information:  (1) 
in  columns  1  through  10,  right  adjust  the  number  of  views  to  be 
converted  (110  FORMAT);  (2)  in  column  20  is  an  integer  indicating 
the  number  of  components  to  be  written  per  line  for  the  Tape  1 
shotlines.  This  number  must  be  1,  2,  or  3.  The  CETANK  and  KETANK 
vulnerability  codes  require  2  components  per  line;  (3)  in  columns 
21  through  80  enter  the  title  of  this  system,  date,  units,  or  other 
pertinent  information. 

The  second  set  of  cards  consists  of  one  card  for  each  view  to 
be  converted.  Each  card  in  this  set  uses  a  2F10.0  FORMAT.  The 
azimuth  angle  (in  degrees)  for  the  view  goes  in  columns  1  through  10 
while  the  elevation  angle  (in  degrees)  for  the  view  goes  in  columns 
11  through  20.  Again,  this  second  set  of  cards  has  one  card  for 
each  view  to  be  converted.  The  views  (shotline  data)  will  appear 
on  the  converted  shotline  file  (Tape  1)  in  the  order  they  are  input 
on  these  cards.  All  these  above  instructions  are  listed  on  comment 
cards  at  the  beginning  of  each  code. 

Table  D-I  contains  a  listing  of  the  SGCVRT  code,  and  Table  D-II 
contains  a  listing  of  the  FGCVRT  code. 
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TABLE  D-I.  Listing  of  the  SGCVRT  Code 


1 

2 


C 

cc 

cc 

c 

cc 

c 

cc 

cc 

c 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

c 

cc 

cc 

c 


c 

cc 

c 


700 


4001 
71 

4002 


2011 


PROGRAM  SGCVRT  < INPUT. OUTPUT « TAPEI .TAPE11.T  A PE 5« INPUT  *  T4PE6»0UTPUT  > 
DIMENSION  AX< 170) .AY <1701  .AZ(170) . IECO < 170  I .ETH < 170 ) .  IES<170) 
DIMENSION  ITEM ( 1 00 ) iCLQS < 100 ) *CNORM( 10  0) « C  ANG I <100) »KSPAC< 100  >  . 

SLOSUOO)  «xi(100).x0<100)  tCNORMOdOO)  .CNORMI  <  10  0)  . 
CANGO(IOO) 

0  I  HENS  I  ON  AZM  ( 50  )  .ELEVtSO)  .TITLE(IO) 

THIS  PROGRAM  CONVERTS  ShOTGEN  SHOTLINES  TO  GIFT  TaPEI  SHOTLINES 
OPTION  FOR  1.2.  OR  3  COMPONENTS  PER  LINE 


KEITH  APPLIN  X3431  8328  RM110 

TAPE11  ■  SHOTGEN  SHOTLINE  TAPE  TO  BE  CONVERTED 
TaPEI  ■  GIFT  GRIO  TYPE  SHOTLINES  -  OUTPUT  FILE 


OROER  OF  CARO  INPUT 

1.  NVIEWS. ICPL. TITLE  (2I10.6A10) 

NVIEWS  ■  NUMBER  OF  VIEWS  OESIREO  ON  TaPEI  (110) 

OPTION  FOR  NUMBER  OF  COMPONENTS  PRINTED  PER  LINE 

1  ■  1  COMPONENT  PER  LINE 

2  ■  2  COMPONENTS  PER  LINE 

3  ■  3  COMPONENTS  PER  LINE 
(1.2. OR  3  ARE  THE  ONLY  CHOICES) 

(MOST  COMMON  CHOICE  IS  2) 

TARGET  TITLE  (6A  1 0 ) 

2.  AZM.ELEV  (2F10.0) 

AZIMUTH<OEG)  FOR  THIS  VIEW  (F10.0) 

ELEVATION  (OEG)  FOR  THIS  VIEW  (FlO.O) 


ICPL 


TITLE 
AZM.ELEV 
aZm  • 
ELEV  > 


***BEpEAT  STEP  2.  NVIEwS  TIMES 


NOTE  -  THE  VIEWS  WILL  APPEAR  ON  TAPEI  IN  THE  ORDER  THEY  ARE 
INPUT  IN  STEP  2. 


TOLLOS"  .01 
X5«0 .0 
Y5«0.0 
ZS»0.0 

REAO  CARO  INPUT 

REAO (5.700)  NVIEWS.  ICPL » (TITLE (I) tl»l»6> 

FORMA  T (2I10.6A10) 

IF (NVIEWS.GT.O)  GOTO  71 
WRITE (6.400  1 )  NVIEWS 

F0RMaT(1H1,5X, 'NVIEWS  ■  ' .110. 5X, 'MUST  PE  POSITIVE  STOP') 
STOP 

IF(ICPL.GE.l.ANO.ICPL.LE.3)  GOTO  72 
WRITE (6.4002)  ICPL 

FORMAT (lHl.SX.'ICPL  « • , 1 1 0 . 5X » *  MUST  BE  1.2.  OR  3  STOP') 
STOP 

CONTINUE 


write  initial  header  line  on  tapei 
call  OATE(OAT) 

■  RITE (1 .2011)  NVIEWS.OAT. (TITLE(I).I»1.6) 
FORMAT (  15. 7 A  10 ) 
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TABLE  D-I.  Listing  of  the  SGCVRT  Code  (Continued) 


c 

cc 

c 

c 

cc 

c 


00  LOOP  777  IS  THt  BIG  LOOP  FOR  EACH  VIEW 
00  777  KA»l,NVIEwS 

R£AO  AZIMUTH  ANO  ELEVATION  FOR  THIS  VIEW 


R£AO (5  *710)  AZM(KA) »El£V ( K  A ) 

710  FORMAT (2F10 .0) 

IF (EOF (5) )  781*782 
781  U-KA-l 

Wfl I TE ( 6 , 783 )  NVIEwS.U 

783  FORMAT ( 1M1 .5X, •**  ERROR  R EUUE ST  ED • . 1 5 , 2X .  •  V  I E#S  eUT  OATA  FOR  ONLV 


1 '  » 15  *  2X  » ' STOP  '  ) 

STOP 

782  CONTINUE 
C 

CC  SEARCH  FOR  THIS  VIEW  ON  TAPE1  1 
C 

REWIND  11 

1  READ (11)  A,E,GRIO«NX,HMAX,HMIN. VMAX. VMIN.RA 

IF<EOF<lin  1000,501 

501  IF <AZM<KA)  .EO.A.ANO.ElEV <*A)  ,EQ.£>  GOTO  707 
CALL  SKIPFE (  11 .  1,  1) 

GOTO  1 

1000  WRITE (6,510)  AZMdLA) ,£lEV(KA| 

510  FORMAT ( lhl , '  V  I  Ew '  ,  2F 1 2 . 1 « 2 X , ' NOT  ON  SHOTGEN  FILE  -  STOP') 
STOP 


C 

CC  FOUNO  VIEW  —  8EGIN  PROCESSING 
C 

707  WRITE(6,500)  A.E.ICPL 

500  format ( 1H1 ,5X, 'PROCESSING  VIEW  A- •  ,F5 . 0 . 2X ,  ' E«  •  « F5 .0 , / , 5X ,  I? , 2X  , 
l 'COMPONENTS  PER  LINE') 

C 

CC  WRITE  VIEW  HEADER  LINE  ON  TAPE  1 

C 

WRITE (1,2012)  A.E.XS, Y5»Z5,GRID 
2012  FORMAT  <2E20«8,*E10.3) 

C 

CC  RE AO  SHOTGEN  SHOTLINES  -  6  WOPOS/LINE  IN  BLOCKS  OF  170  LINES 

C 

Nw  0 

NCELL*0 

LL*200 

111  NCELL*NCELL *  1 
100  N»N*1 
110  LL»LL*1 

IF (LL,LE« 170 )  GOTO  120 

READ (11)  <  A  A ( L )  ,  A  Y ( L )  «AZ(L)  ,  I  ECO ( L )  ,ETH(L) , IES  <L ) ,  L»l«170) 

LL»1 

120  IFIN.GT.50)  GOTO  150 
C 

CC  PROOUCE  INFO  FOR  GIFT  GRID  TAPE  l  SHOTLINFS 
C 

ITEM(N)wmOO(IECO(LL) ,100001 
IF  ( ITEM (N I  ,EQ .  0 )  GOTO  776 
XI  (N) *AX  ILL) 

HsFLO A  T ( I  FIX ( AY  ILL)  )/ 10000) *. 1 
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TABLE  D-I .  Listing  of  SGCVRT  Code  (Continued) 


V -FLO AT (I  FI  X ( AZ (LL) )/1000)*.l 
CLOS(N)-ETH<LL) 

KSPAC <N) -IES (LL) /10000 

CANO I IN) -FLOAT! NOD (lES(LL) .100001/100) 

IF ( ICPL.EU. 1 )  CANGO (N I -FLOA  T ( MOO (IES(LL) .100) ) 

CNORM(N) -FLOAT ( [ECU ( LL ) /10000>*.U0(I1 
CNOKNO(N)-CNOHM<N) 

I F ( CNORN ( N) .EQ.O)  CNORM <N) -CLOS (N> *COS ( CANO I (N) /57 .2937795 ) 

CNORMI (N) -CNOHM (N) 

IF (CNORMO (N) .EQ.O .ANO. ICPL.EO . 1 )  CNORMO  <N> -CLOS  <N) -COS (CAN60 (N> /57 
1.29S779S) 

IF (KSPAC (N>  .EQ.9)  GOTO  230 
GOTO  100 

ISO  IFdES(LL)  .LT. 90000)  GOTO  110 
N-N-l 

KSPAC (SO) -9 
WRITE! 6.524 )  H.V 

52*  FORMAT < 10X. ’NUMBER  OF  COMPONENTS  ALONG  RAY  * *2F12. 3.2*. 'EXCEEDS  50 
1-SKIP  REST  OF  COMPONENTS’) 

C 

CC  FINISHEO  THIS  CELL 
C 

230  NCOMP-N 

OFIRST-XI  (1) 

DLAST-XI ( NCOMP ) —CLOS ( NCOMP ) 

JF-NCOMP— 1 
00  11  I-l.dF 

IFfKSPACH)  .EQ.9)  GOTO  11 
J-I»l 

SLOS ( 1 ) -X I (J)-XI (I)-CLOS(I) 

IF  (XI  (2)  .LT.XHl) )  SLOS(I)  -XI  (I)-XIU)  -CLOS  (I) 

IF (SLOS(I) .LT.0.0)  CLOS ( I ) -CLOS ( I ) *SL0S ( I ) 

IF  <SL0S<I)  .LE.TOLLOS)  SLOSH) -0.0 
IF( SLOS (I).EQ. 0.0)  KSPAC ( I ) -0 
11  CONTINUE 

SLOS ( NCOMP) -0.0 
C 

CC  WRITE  HEAOER  FOR  THIS  CELL 
C 

IF ( ICPL.NE.2)  WRITE ( 1 .2013)  H. V .H. V .NCOMP .OFIRST . OL AST . A ,E 
2013  FORMAT(2F7.1,2F9.3.I3,2F8.2,2H  A.F6.1.2M  E.F6.D 

IF  (ICPL.EQ.2)  Wfl I TE ( 1 . 20 1*)  M . V .OF IRST.DLAST. NCOMP .h.y.A.E 
201*  FORMAT  <F*. I.F7.1.3X. 2F8.2.8X, 13. 7X.2F9.3 .IX. IH*. F* . 0 , 2H, £ . F* . 0 ) 

C 

CC  WRITE  REST  OF  CELL  INFO 
C 

IFHCPL.GT.DGOTO  *0 
C 

CC  PRINT  ONE  COMPONENT  PER  LINE 
C 

00  31  I-i. NCOMP 

WRITE  (1  .2101)  ITEM  (I  )  .CLOSH)  .CNORMI  (I)  ,  CANGI  (I)  .CNURMOH)  .CANGO  (I 
l)  .KSPAC  ( I )  .SLOSH)  .1 

2101  FORMAT (I**2F7.2.F6.1«F7 .2  «F6. I . I3.F7.2.29X , I*) 

31  CONTINUE 
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TABLE  D-I .  Listing  of  the  SGCVRT  Code  (Continued) 


c 

CC  NEXT  CELL 

C 

32  N»0 

SOTO  111 

40  IF ( ICPL.ST.2)  GOTO  45 
C 

CC  PRINT  TWO  COMPONENTS  PE«  LINE 

C 

DO  12  I«1.NC0MP,2 
J»I 

IF (KSPAC ( I ) . EQ. 9 )  60 TO  13 
J»I*l 

■RITE (1 >2102).  I  TEN ( I )  .CLOS I 1)  .CNORMI 1) • CANS  I ( I ) . K SP4C ( 1 ) . SLOS  < I ) « 

1  ITEN(J)  .CLOSIJ)  .CNORMI J)  i C ANG  I  (J)  .KSPACIJ)  .SL0S< J)  iJ 

2102  FORMAT (2(I*«2F7,2«F6.1»I3*F7.2) .7X.I4) 

60 TO  12 

13  "RITE (1 *2103)  ITEM! I)  ,CL0S  I  I)  .CNORMI 1 ) . CANG I  1 1 ) .KSP AC  1 1 ) . SLOS  < 1 ) . J 

2103  FORMAT (I4.2F7.2.F6.1. 13.F7.2.41X. 1 4) 

12  CONTINUE 

GOTO  32 
C 

CC  PRINT  THREE  COMPONENTS  PER  LINE 
C 

45  00  %6  1*1 .NCOMP .  3 
IFIKSPACII) .EQ.9)  GOTO  47 
J»I*1 

IF (KSPAC, (J)  .EQ.9)  GOTO  48 
K*J*1 

■  RITE (1.2104)  ITEM  1 1 )  , CLOS ( I )  .CANGI  II) .KSPAC I  1) .SLOS(I)  . 

1  ITEM  I  J)  . CLOS  I J )  .CANGI (J)  .KSPAC (J) .SLOS  I  J)  . 

2  ITEM  IK)  .CLOS (K) .CANGI  IK)  .KSPACIK) .SLOS  IK) 

2104  FORMAT <3  I I4.F7.2.F5. 1.13. FT. 21) 

GOTO  46 

48  WRITE ( 1.2105)  ITEM  1 1 ) .CLOS ( I ) . CANGI (I) .KSPAC(I) . SLOS ( I ) . 

1  ITEM(J)  .CLOS I J)  .CANG1IJ)  .KSPACIJ)  .SLOSIJ) 

2105  FORMAT (2II4.F7.2.F5.1.I3.F7.2) ) 

GO  TO  46 

47  WRITE  1 1 .21 06 )  ITEM!  I)  .CLOS (I) .CANGI  1 1 )  .KSPAC (1)  .SLOS  I  I ) 

2106  FORMAT (I4.F7.2.F5. 1. I3.F7.2) 

46  CONTINUE 
GOTO  32 

C 

CC  ENO  OF  VIEW 
C 

776  FIN»999.9 

■RITE (1.2107)  FIN 

2107  FORMAT (F6.1.71X, *ENO* ) 

ENOF1LE  1 
NCELL-NCELL-1 

■  RITE  < 6 .803)  A.E.NCELL 

803  FORMAT  I5X, *FINSHEU  VIEW  A»*,F4.0.»  E» • .F 4 . 0/ . 5X  . 

1 • NUMBER  OF  CELLS** . 17 ) 

777  CONTINUE 
STOP 
ENO 
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TABLE  D-II.  Listing  of  the  FGCVRT  Code 


1 

2 


C 

cc 

cc 

c 

cc 

c 

cc 

cc 

c 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

c 

cc 

cc 

c 


c 

cc 

c 

700 


4001 

71 


*002 


c 

cc 

c 


72 


<£011 


PROGRAM  FGCVRT! INPUT. OUTPUT* TAPE 1, TAPE  11 .  TAPES* INPUT , TAPE6*0UTPUT ) 
DIMENSION  P|_OS<3«170)  ,|_OS<5tl70) 

DIMENSION  ITEM! 100) .CLOSI 100) .CNORM( 100) ,CANGI (100) «KSPAC(100) . 

SLOSI 100) .XI (100). XO (100) .CNORMOI 100) .CNORMI (100) , 

CANGO (100) 

OIMENSION  A2M(S0)  .ELEV<50).TITLEtl0) 

THIS  PROGRAM  CONVERTS  FASTOEN  SHOTLINES  TO  GIFT  T APE  1  SHOTLINES 
OPTION  FOR  1,2.  OR  3  COMPONENTS  PER  LINE 


KEITH  APPLIN  X3431  9328  RM110 

TAPEl  1  ■  FASTGEN  SHOTlINE  TAPE  TO  BE  CONVERTED 
TAPE1  ■  GIFT  GRID  TYPE  SHOTLINES  -  OUTPUT  FILE 


OROER  OF  CARO  INPUT 

1.  NVIEWS, ICPL. TITLE  (2110, 6A10) 


2. 


NVIEWS 

ICPL 


TITLE 
AZM.ELEV 
aZM  i 
ELEV  • 


NO MGER  OF  VIEWS  OESIREO  ON  TAPEl  (110) 
a  OPTION  FOR  NUMBER  OF  COMPONENTS  PRINTED  PER  LINE 
1  *  1  COMPONENT  PER  LINE 
2*2  COMPONENTS  PER  LINE 
3  ■  3  COMPONENTS  PER  LINE 
<1.2. OR  3  ARE  THE  ONLY  CHOICES) 

(MOST  COMMON  CHOICE  IS  2) 

■  TARGET  TITLE  ( 6 A 1 0 ) 

(2F10.0) 

AZIMUTh(DCG)  FOR  THIS  VIEW  (Flfl.O) 

ELEVATION  (OEG)  FOR  THIS  VIEW  (F10.0) 


•••REPEAT  STEP  2.  NVIEWS  TIMES 

NOTE  -  THE  VIEWS  WILL  APPEAR  ON  TAPEl  IN  THE  OPOER  THEY  ARE 
INPUT  IN  STEP  2. 


TOLLOSw.Ol 

X5-0.0 

Y5-0.0 

Z5«0.0 

REAO  CARO  INPUT 

H£A0(5.700)  NVIEWS, ICPL i (TITLE ( I) .1*1.6) 

FORMAT ( 21 10.6A10) 

IF (NVIEWS. GT.O)  GOTO  71 
WRITE (6»*00  1 )  NVIEwS 

FORMAT!  1M1.5X. *NVItwS  w  ' . 1 1 0 » 5X , • MUST  BE  POSITIVE  STOP') 
STOP 

IF ( ICPL.GE.  1  .ANO. ICPL.LE.3)  GOTO  72 
»R  ITE ( b,*0  02 )  ICPL 

FORMAT ( 1H1 «SX* ' ICPL  w'.IlO.SX,' MUST  PE  1.2,  OR  3  STOP') 
STOP 

CONTINUE 


•RITE  INITIAL  HEADER  LINE  ON  TAPEl 
CALL  OATE(OAT) 

WRITE (1.2011)  NVIEWS.OAT.<TITLE(I> .1*1.6) 
FORMAT! 1 5 . 7  A 1 0 ) 
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TABLE  D-II.  Listing  of  the  FGCVRT  Code  (Continued) 


c 

cc 

c 

c 

cc 

c 


UO  LOOP  777  IS  THt  BIO  LOOP  FOR  EACH  VIEW 
00  777  KA«1,NVIE*S 

HEAD  AZIMUTH  ANO  ELEVATION  FOR  THIS  VIEW 


REAOtS.TIO)  AZM(KA) «£LCV <NA) 

710  FORMAT ( 2F  1  0 . 0  ) 

IF(EOF(S()  781.782 

781  J-KA-1 

■R ITE ( 6. 783 )  NVIEWS.J 

783  FORMAT <  1H  1 ,5X . •**  ERROR  REOUES TE D *  •  1 5 •  2X  . '  V  I  EWS  BUT  OATA  FOR  ONLV 
1 « . 15.2*. 'STOP* ) 

STOP 

782  CONTINUE 


C 

CC  SEARCH  FOR  THIS  Vl£»  ON  TaREU 
C 

RCWINO  11 

1  REAO(ll)  A.E.ORIO.NX.HMAX.HMIN.VMAA.VMIN.RA 
IF (EOF  lilt)  1  000, SOI 

501  IF (AZM(KA)  .EO. A. ANO.ELEV <KA)  .EO.E)  GOTO  707 
27  HEAO(ll)  < (RLOS(J.K)  ,  J*  1 .3) ,  (LOS (O.F)  < J*  1 »  5 ) «A  *  1 . 170) 

00  26  1*1.170 
IF ( LOS (2.1)  . EU  .  0 )  GOTO  1 
26  CONTINUE 
GOTO  27 

1000  WR ITE (6,510)  AZM(NA) .ELEV(KA) 

510  FORMA  T  < 1 H  1 , '  VIEW' .2F12.1 ,2X. 'NOT  ON  FASTGEN  FILE  -  STOP*) 
STOP 


CC  FOUNO  VIEW  —  BEGIN  PROCESSING 

c 

707  WRITE  <6.500)  A.E.ICPL 

500  FORMAT ( 1H1 ,5X. 'PROCESSING  VIEW  A* • ,F5 . 0 .2X , ' E* •  »F5 . 0 ./ »SX , 1 2 ,2X . 
1 'COMPONENTS  PER  LINE') 

C 

CC  WRITE  VIEW  HEAOER  LINE  ON  TaPEI 

C 

WRITE <  1 .2012)  A, E.X5. V5.Z5.GR  ID 
2012  FORmxT (2E20.6.WE10.3) 

C 

CC  RE AO  FASTGEN  ShOTLINES  -  8  WORDS/LINE  IN  BLOCAS  OF  170  LINES 

C 

N*  0 

NCELL*0 

111  NCELL»NCELL»1 
LL*20  0 
100  N*N ♦ 1 
110  LL*LL* 1 

IF (LL.LE.170)  GOTO  120 

RE AO  (  1  1  )  l  IRLOS ( J.M «J*1,3),(L0S(J,K),J*1,5),K*1,170) 

LL*  1 

120  IF(N.GT.SO)  GOTO  150 
C 

CC  PRODUCE  INFO  FOR  GIFT  GRID  TAPEI  SHOTLINES 
C 

ITEM(N)*LOS  12.LL) 

IF  (ITEM(N)  .EO.OI  GOTO  776 
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TABLE  D-II.  Listing  of  the  FGCVRT  Code  (Continued) 


XI  ( N) »rlos ( i «  ll ) 

HaRLUS<2.LL> 

VaRLOS (3.LL) 

clos<n)* float  <  los  <  3  *ll i )*.oi 

KSP AC (N  9 *MOD ( LOS < 1 • LL ) <109 

CANGI <N)aACOS<1.0/<FLOAT<LOS<*.LL> >*.001) 9*57.2957795 
IF(ICHL.EQ.l)  CANGO <N)aAC0S< 1.0/ (FLOAT (LOS < 5. LL>  9 *.001 9  9*57.295779 
15 

CNORM(N) aFLOAT (LOS  < 1 • LL 9 / 1 0 9  * . 0 1 
CNORMO  <N) *CNORM<N) 

I F  < CNORM  ( N) .EQ.O)  CNORM <N I «CLOS < N 9 *COS < CANO I <N) /57. 2957795 9 
CNOPMl <N)*CNORH<N) 

IF (CNORMO  <N) .EQ.O.ANU. ICPL.EO.l)  CNORMO <N) *CLOS <N) *COS (CANGO <N) /S7 
1.2957795) 

IF (KSPAC(N) .EQ.99GOTO  230 
GOTO  100 

ISO  IF (MOO (LOS < 1  .LL) . 10) .LT.9)  GOTO  110 
N*N-1 

RSPAC<50)»9 
WRITE  <6.52*9  M«  V 

52*  FORMAT  < 1  OX . 1 NUMflER  OF  COMPONENTS  ALONG  RAY  •  . 2F 1 2 .3 . 2X . ' EXCEEOS  50 
1-SKIPPEO  REST  OF  COMPONENTS') 

C 

CC  FINISHED  THIS  CELL 
C 

230  NCOMpa* 

OFIRSTaAl  <l) 

DLAST»X I (NCOMP) -CLQS (NCOMP) 

JFaNCOMP-1 
00  11  1*1. JF 

IF(KSPAC(I)  .EU.9)  GOTO  11 
J«I«1 

SLOS  < 1 9  aXI  (J9-XI < 1 9 -CLOS  <  1 9 

IF (XI <29 .LT.XI <  1) 9  SLOS<I)aXl (I9-XI (J)-CLOSII) 

I F  <  SLOS  < I  9 . LT  .0 . 0  9  CLOS ( I  9  »CLOS < I  9  *SLOS ( 1 9 
IF ( SLOS ( 1 9  .LE.TOLLOS 9  SLOS <19*0.0 
IF ( SLOS (I)  .EQ.O.O)  KSP  AC ( 1 9  *0 
11  CONTINUE 

SLOS  < NCOMP  9*0.0 

c 

CC  WRITE  HEAOEH  FOR  THIS  CELL 
C 

IF <  ICPL.NE.2)  WRITE < 1 .2013)  H. V »H . V .NCOMP .OFIRST . OLAS T . A . E 
2013  FORMAT (2F7. 1 ,2F9.3. 13. 2F8.2. 2H  A.F6.1.2M  E.F5.1) 

IF  <  ICPL.EQ.2)  wflITEd. 201*9  H,  V .  CF IRST  .OLAST  .NCOMP  ,H .  V  ,  A ,  E 
201*  F0HMAT(F6.1.F7.1,3X.ZF8.Z.8X, 13. 7X . 2F9.3 . IX . 1HA .F* .0 . 2M.E . F*. 0) 

C 

CC  wRITE  REST  OF  CELL  INFO 
C 

IF  <  ICPL.GT . 1 9  GOTO  *0 
C 

CC  HRINT  ONE  COMPONENT  PER  LINE 
C 

00  31  1*1, NCOMP 

WRITE  <1 .2101)  ITEM! I) .CLOSI 1 9 .CNORMI <  I)  .CANGI  (I)  .CNORMO  <1 9 .CANGO  I  I 
l).KSPAC(I). SLOS ( 1 9  .1 

2101  FORMAT  <I*,2F7.2.F6.1 .F7.2.F6.1 .13. F7.2.29X, 1*9 
31  CONTINUE 
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c 

CC  NEXT  CELL 

C 

32  N«0 

GOTO  111 

*0  IF ( ICPL.GT.2)  GOTO  45 
C 

CC  PRINT  TWO  COMPONENTS  P£R  LINE 

C 

00  12  I-1.NCGMP.2 
J«I 

IF (KSPAC (I ) . EQ.9)  GOTO  13 
J»I « 1 

■HITE ( 1 *2102)  ITEMf I) .CLOS ( I) .CNORM ( I ) .CANGI (  I )  .KSPAC ( I ) .SLOS  < I ) • 

1  ITEH(J) «CL0S< J) . CNORM (J) .CANGI  I J) .KSPAC ( J)  .SLOS  t J) *J 

2102  FORMAT (2 ( 1 4. 2F7, 2 *F6 . 1 , 1 3 *F7 . 2 ) .7X.I4) 

GOTO  12 

13  "RITE (1.2103)  ITEM! I) .CL0S< I ) .CNORM { I ) .CANGI I  I) .KSPAC I  I) .SLOS  1 1 ) . J 

2103  FORMAT (I4.2F7.2.F6.1 .  I3.F7.2.4  1X.  14) 

12  CONTINUE 

GOTO  32 
C 

CC  PRINT  THREE  COMPONENTS  PER  LINE 
C 

45  00  46  1*1 .NCOMP  .  3 

IF  (KSPAC (  1 ) .EQ.9)  GOTO  47 
J*I*1 

IF  (KSPAC (J)  .£0.9)  GOTO  46 
K»J*1 

■  RITE  <1 .2104)  ITEM( I) .CLOS ( I) .CANGI <1 ) .KSPAC (I)  .SLOSH ) . 

1  ITEM (J) .CLOS (J) .CANGI t J) .KSPAC (J) .SLOS(J) . 

2  ITEM(K),CLOS(K).CANGI<K) .KSPAC (K) .SLOS (K) 

2104  FORMAT (3(I*,F7.2iF5.1»I3.F7,2) > 

GOTO  46 

48  WRITEd  .2105)  I  TEH  ( I )  .CLOS  ( I )  .CANGI  (I)  .KSPAC(I)  .SLOSH)  . 

I  1TEH(U) .CLOS (J) .CANGI <J> .KSPAC (J) .SLOS (J) 

2105  FORMAT (2( I4.F7.2.F5.1.I3.F7.2) ) 

GO  TO  46 

47  WRITE <1*2106)  ITEM  < I ) .CLOS (t).CANGt(I) .KSPAC ( I ) «  SLOS ( I ) 

2106  FORMAT  <I4,F7.2»F5.1*I3.F7.2) 

46  CONTINUE 
GOTO  32 

C 

CC  ENO  OF  VIEW 
C 

776  F  IN*999 .9 

■RITE (1.2107)  FIN 

2107  FORMAT (F6. 1 ♦ 7 1 X ♦ 'ENO ' 1 
ENOFILE  1 
NCELL»NCELL-1 

■RITE (6.803)  A.E.NCELL 

B03  FORMAT (5X, 'FINSHEO  VIE*  A»',F4.0»*  E * ’ « F4 , 0/ .5*  » 

I I  NUMBER  OF  CELLS* ’ » 17 ) 

777  CONTINUE 
STOP 
ENO 
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Laboratory,  ARRADCOM,  ATTN:  DRDAR-TSB,  Aberdeen  Proving  Ground, 
Maryland  2100S.  Your  comments  will  provide  us  with  information 
for  improving  future  reports. 

1 .  BRL  Report  Number^ _ 

2.  Does  this  report  satisfy  a  need?  (Comment  on  purpose,  related 
project,  or  other  area  of  interest  for  which  report  will  be  used.) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
source,  design  data  or  procedure,  management  procedure,  source  of 
ideas,  etc.) _  _ _ 


4.  Has  the  information  in  this  report  led  to  any  quantitative 
savings  as  far  as  man-hours/contract  dollars  saved,  operating  costs 
avoided,  efficiencies  achieved,  etc.?  If  so,  please  elaborate. 


5.  General  Comments  (Indicate  what  you  think  should  be  changed  to 
make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) _ 


6.  If  you  would  like  to  be  contacted  by  the  personnel  who  prepared 
this  report  to  raise  specific  questions  or  discuss  the  topic, 
please  fill  in  the  following  information. 
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Organization  Address: 


